#!/usr/bin/perl -w

while(<>) {
    if (/<text>(.+)<\/text>/) {
        print "$1\n";
    }
}

